home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 06 (1989-06)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 10, No. 06 (1989-06)(MindCraft Publishing)(Side A)[a].po
/
ZAPPER.DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
1KB
|
38 lines
10 REM ***********************
20 REM * ZAPPER.DEMO *
30 REM * BY JOHN A. WARD *
40 REM * COPYRIGHT(C) 1989 *
50 REM * MICROSPARC, INC. *
60 REM * CONCORD, MA 01742 *
70 REM ***********************
80 HOME : HGR : HCOLOR= 3
90 LET D$ = CHR$(4): REM CTRL-D
100 REM *** PART ONE - INITIALIZE ***
110 PRINT D$;"BLOAD ZAPPER.BIN"
120 PRINT D$;"BLOAD APPLE.PIC,A$4000"
130 CALL 768
140 VTAB 21
150 PRINT "PRESS RETURN TO CONTINUE.";: GET AN$
160 REM
170 REM *** PART TWO - DRAW ***
180 HPLOT 145,90 TO 140,80
190 HPLOT TO 165,70
200 HPLOT TO 185,50
210 HPLOT TO 210,65
220 HPLOT TO 195,70
230 HPLOT TO 185,65
240 HPLOT TO 165,80
250 HPLOT TO 145,90
260 HPLOT 185,55 TO 187,57
270 HOME : VTAB 21: HTAB 30
280 PRINT "OH!OH!"
290 HPLOT 210,159 TO 190,80
300 PRINT
310 PRINT "PRESS RETURN TO REMOVE THE WORM!";: GET AN$
320 REM
330 REM *** PART THREE - ERASE ***
340 CALL 768
350 HOME : VTAB 21
360 PRINT "TRY AGAIN? (Y/N)?";: GET AN$
370 IF AN$ = "Y" THEN 170
380 TEXT : HOME : END